perm filename XXX.SCR[SCR,LCS] blob
sn#439885 filedate 1979-05-04 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
COMMON REVRB;
< XXX .SCR -- RANDOM NUMBER= 1
PLAY;
REVRB 0.000 12.000
;PRINT P1;< REVRB 1
TOOT 0.000 0.633 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 1
TOOT 0.633 0.283 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 2
TOOT 0.916 0.234 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 3
TOOT 1.150 0.483 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F1
;PRINT P1;< TOOT 4
TOOT 1.633 0.600 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 5
TOOT 2.233 0.517 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 6
TOOT 2.750 0.617 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 7
TOOT 3.367 1.217 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 8
TOOT 4.584 0.467 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F1
;PRINT P1;< TOOT 9
TOOT 5.051 0.183 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 10
TOOT 5.234 0.200 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 11
TOOT 5.434 0.300 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 12
TOOT 5.734 0.433 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 13
TOOT 6.167 0.583 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F1
;PRINT P1;< TOOT 14
TOOT 6.750 0.650 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F5
;PRINT P1;< TOOT 15
TOOT 7.400 1.283 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.060 F4
;PRINT P1;< TOOT 16
FINISH; < XXX .SCR